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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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} 
FFFFFFFFFF © 000000 RRRRRRRR  RRRRRRRR  EEEEEEEEEE  AAAAAA ODDDDDDD __ikk KK FFFFFFFFFF | 
FFFFFFFFFF © Q00000 RRRRRRRR  RRRRRRRR  EEEEEEEEEE  AAAAAA ODDDDDDDD __ikk KK FFFFFFFFFF 
FF 00 00 RR RR RR RR EE AA AA DD DD KK KK FF 
FF 00 00 RR RR RR RR EE AA AA DD DD KK KK FF | 
FF 00 00 RR RR RR RR EE AA AA DD DD KK KK. FF | 
FF 00 00 RR RR RR RR EE AA AA DD DD KK FF 
FFFFFFFF © 00 00 RRRRRRRR  RRRRRRRR  EEEEEEEE AA AA DD DD KKKKKK FFFFEFFF | 
FFFFFFFF 00 00 RRRRRRRR  RRRRRRRR  €EEEEEEEE AA AA DD DD KKKKKK FFFFFFFF 
FF 00 00 RR RR RR RR EE AAAAAAAAAA DD DD KK. KK FF 
FF 00 00 RR RR RR RR EE AAAAAAAAAA DD DD KK KK FF | 
FF 00 00 RR RR RR RR EE AA AA DD DD KK KK FF esis | 
FF 00 00 RR RR RR RR_ EE. AA AA DD DD KK KK FF ayy | 
FF 000000 ~—s RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD ~—siKK KK FF i | 
FF 000000 ~=s RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD ~—sKK KK FF pats | 

| 
LL III SSSSSSSS | 
LL III SSSSSSSS | 
LL I] Ss 
LL I] 5S | 
LL I] SS 
LL II ss 
LL I] SSSSSS | 
LL II SSSSSS | 
LL I] SS 
LL I] SS 
LL Il SS | 
LL II $s 
LLLLLLLLLL  JIIIIII  S$SSSSSSS | 
LLLLLLLLLE §©«STSSSII.©=©=—SSSSSSSSS | 
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FORSREAD_KF = entry point for FORTRAN READ KEYED FOR 15-SEP-1986 23:57:35 VAX/VMS Mac | 
1-011 ” gree i aks Foieote PARANTS Saeco Net CO any Pee? cl, | 
LTITLE FORSREAD_KF = entry point for FORTRAN READ KEYED FORMATTED | 
"IDENT /1-011/ File: FORREADKF.MAR Edit: JAWI011 


—PARAAARAAARBALALASAAARASLAASASELESA SAREE S ELAS E SARE RASS ESSER REESE EERE R RES RA ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** ® 
*® ® 
‘® * 
® 5 
*® ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
© OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S” HEREBY = 
:® TRANSFERRED. . 
® *® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. . 
*® * 
:* te 
*® ® 
:* ® 
:* ® 
** ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


pole lolol ole lol ole elelolololololololo) 
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FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 
This module contains 
READ KEYED FORMATTED 
a call to FORS$$I0_BE 
parameter List. FOR 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSREAD_KF 

. MASK $10_BEG 

BRW FORSREAD_KF +2 

This puts the correct mask in entry wegtor. thet is FORSS$IO_BEG entry mask. 


Furthermore this module must only use RO an 
since any other register might not be in the entry mask for FORS$$I0_BEG. 


he entry point for the FORTRAN 
/O0 statement. It is simply 
ey bits in RO which deat the the 


G 
$$10_BEG interprets the parameters. 


; ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


. MODIFIED BY: 
- Hastings, 29-July-78 
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Page by 


; Detailed Current Edit History 6-S 
.SBTTL HISTORY 


FORRTL.SRCJFORREADKF .MAR; 1 
; Detailed Current Edit History 


NO 


History for Version 1 
Add comment about vectors. TNH 23-June-78 
7 
$k... JBS 11-DEC-78 


BS 
RSREWRITE SF, FORSREWRITE_SO, 
ITE_IF, FORSWRITE_1 


oints that need object time formatting, 
ORSENTRY_OBJ so that we can arrange to 
foraas compiler only when it is needed. 


oint FORSENCODE_MF; we will code a new module 
how much 1/0 initiation time 


NINN NIAAA AAAOAAOOomnww 


WBS 02-JUL-1979 
ikewuse for FORSREAD_DU and FORSWRITE_DU. 
Remove all entry points éxcept FORSREAD_KF; each o 
others gets its own module so we can selectivel 
the necessary UDF and REC modules. 
New parameter format for FOR$$I 
ange BRW FORS$$I0_BEG+2 to J 


polelelelelel ole) el elelel ele) ol el ele ele ele ele ol ela la) 
oonn~ 
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JAW 21-Feb-1981 
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FORSREAD_KF = entry point for FORTRAN READ KEYED FOR 15-SEP-1984 23:57:35 VAX/VMS Macro V04-00 
1-011 DECLARATIONS g-sep-1 984 THRE FORRTL.SRCJFORREADKF .MAR; 1 
-SBTTL DECLARATIONS 
; INCLUDE FILES: 
SFORPAR ; Define inter-module FORTRAN symbols 
SISBDEF ; Define statement type symbols 


t EXTERNAL SYMBOLS: 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORSSIO_BEG ; common I/0 statement processing 


s¢ 

3; The pe geetay references are to make sure the necessary UDF and REC 
; modules are loaded. These are the routines which are called through 
3; the dispatch tables in FORSSDISPAT. 


-EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RF9 
SEXTRN FORSSREC-RKFO, FORSSREC_RKF1, FORSSREC_RKF9 


COOoQoQooQoooooOos DOOOOCOOOoOOo 
SOOOooOCOCOCOOCOOCOC SOB OOOOOSOOOOoO 
SOOO CCOCOCOOCOCOOOCOCOCOOSOSOOoOO 


MACROS: 
NONE 
PSECT DECLARATIONS: 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


> EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 
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r FORTRAN READ KEYED FOR 15-SEP-1984 23:57:35 VAX/VMS Macro Vv04-00 Page 4 
AD KEYED formatted 6-SEP=1984 10:59:14 [*ORRTL.SRCIJFORREADKF .MAR; 1 (4) 
-SBTTL FORSREAD_KF = READ KEYED formatted 
++ 
; FUNCTIONAL DESCRIPTION: 
Initialize the FORTRAN I/0 system to perform 
a READ KEYED formatted I/0 statement. 
; CALLING SEQUENCE: 
CALL FORSREAD_KF (unit.rl.v, format_adr.mbu.ra, 
ey.rx.dx, eh ah 5 match.rl.v 
C, err_adr.j.r C, end_adr.j.rJJ) 
; INPUT PARAMETERS: 
unit.rl.v Logical unit number 
format_adr.mbu.ra adr. of compiled format byte array 
key .rx.dx the key of the record to be read 
keyid.rl.v the number of the ae 
match.rl.v code for how to match (EQL, GEQ, GTR) 
pene -agr eyed optional ERR= address 
end_adr.j.rJ optional END= address 
IMPLICIT INPUTS: 
NONE except those used by FORSS$IO_BEG. 
OUTPUT PARAMETERS: 
NONE 
; IMPLICIT OUTPUTS: 
NONE except those left by FORSS$IO_BEG. 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE except those of FORS$I0_BEG. 
FORSREAD_KF::  .MASK FOR$S$I0 BEG 
MOVZBL #ISBSK_ST_TY_RKF, RO ; Statement type 
JMP G*FORS$10_BEG+2 ; branch past call mask 
~ END 


-———__—_--- 
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FORSREAD_KF 3~560-138¢ HIS E: ao Macro V04-00 Page § 
Symbol table 6-SEP=1984 10:59:14 (CFORRTL.SRCJFORREADKF .MAR; 1 (4) 
FORSS10_ BEG eerereee =X 
FORSSREC_RKF eeeereer =X 3 
FORSSREC_RKF1 eeeeeeee =X 
ORSSREC_RKF9 eeerereer § xX 
FORSSUDF _RFO eeereeee x B8 
FORSSUDF “RF 1 eeneeree X 0 
FORSSUDF _RF9 eeeeeene x BY 
FORSREAD_KF 0000000 RG 1 
ISBSK_ST_TY_RKF = Q000000E 

$eoereerocreasoceraccee + 

! Psect synopsis ! 

ee wmanren en aee cance + 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 <¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 ¢ 11.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

besensceeer ane ecr ee cn eer ene 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
; Be 00:00:00.08 00:00:00.55 

Command processing 134 00:00:00.60 00:00:03.99 
Pass 1 125 00:00:01.23 00:00:04.31 
Symbol table sort 0 00:00:00.19 00:00:00.63 
Pass 2 46 00:00:00.45 00:00:02.24 
Symbol table output 2 00:00:00.03 00:00:00.28 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 2 Sha A Sb 00:00:00.00 
Assembler run totals 34 00:00:02.6 00:00:12.05 


The working set Limit was 900 pages. : : 

6697 bytes (14 pages) of virtual memory were used to buffer the intermediate cod 

There were 20 pages of symbol table space allocated to hold 187 non-local and 0 
8 object records in Pass 2. 

macros. 


e. 
local symbols. 
180 source Lines were read in Pass 1, produc ing 

9 pages of virtual memory were used to define 


+ 
! Macro Library statistics ! 
+ + 


Macros defined 


Macro Library name 


-$255$DUA28: CFORRTL.OBJJFORRTL.MLB; 1 2 
$255$DUA28: CSYSLIBISTARLET.MLB; 0 
TOTALS (all libraries) 2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORREADKF /OBJ=OBJ$:FORREADKF MSRC$:FORREADKF /UPDATE=(ENHS$:FORREADKF ) +L 1 


nitializatio 
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